object FormCalandar: TFormCalandar Left = 454 Top = 181 BorderStyle = bsDialog Caption = 'Calendrier' ClientHeight = 238 ClientWidth = 255 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object Calendar1: TSoftcalendar Left = 0 Top = 22 Width = 255 Height = 184 Cursor = crHandPoint Align = alTop BorderStyle = bsNone Ctl3D = False Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False StartOfWeek = 1 TabOrder = 0 OnDblClick = Calendar1DblClick end object CustomButtonOk: TButton Left = 90 Top = 212 Width = 75 Height = 22 Caption = '&Ok' Default = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 end object Panel1: TPanel Left = 0 Top = 0 Width = 255 Height = 22 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 2 object Tool_BmoisMoins2: TRepeatButton Left = 6 Top = 4 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'Mois pr'#233'c'#233'dent' Flat = True Glyph.Data = { 9E000000424D9E000000000000007600000028000000070000000A0000000100 0400000000002800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF4F0FFFF 44F0FFF444F0FF4444F0F44444F0F44444F0FF4444F0FFF444F0FFFF44F0FFFF F4F0} ParentShowHint = False ShowHint = True OnClick = Tool_BmoisMoins2Click RepeatInterval = 150 StartInterval = 100 end object LabelMois: TLabel Left = 21 Top = 5 Width = 85 Height = 16 Cursor = crHandPoint Alignment = taCenter AutoSize = False Caption = 'Novembre' Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnClick = LabelMoisClick end object Tool_BMoisPlus2: TRepeatButton Left = 107 Top = 4 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'Mois suivant' Flat = True Glyph.Data = { 9E000000424D9E000000000000007600000028000000070000000A0000000100 0400000000002800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F4FFFFF0F44F FFF0F444FFF0F4444FF0F44444F0F44444F0F4444FF0F444FFF0F44FFFF0F4FF FFF0} ParentShowHint = False ShowHint = True OnClick = Tool_BMoisPlus2Click RepeatInterval = 150 StartInterval = 100 end object Tool_BAnneeMoins2: TRepeatButton Left = 129 Top = 4 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'Ann'#233'e pr'#233'c'#233'dente' Flat = True Glyph.Data = { 9E000000424D9E000000000000007600000028000000070000000A0000000100 0400000000002800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF4F0FFFF 44F0FFF444F0FF4444F0F44444F0F44444F0FF4444F0FFF444F0FFFF44F0FFFF F4F0} ParentShowHint = False ShowHint = True OnClick = Tool_BAnneeMoins2Click RepeatInterval = 150 StartInterval = 100 end object LabelAnnee: TLabel Left = 146 Top = 5 Width = 85 Height = 16 Alignment = taCenter AutoSize = False Caption = '2000' Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object SpeedButtonAnneSuiv: TRepeatButton Left = 233 Top = 4 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'Ann'#233'e suivante' Flat = True Glyph.Data = { 9E000000424D9E000000000000007600000028000000070000000A0000000100 0400000000002800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F4FFFFF0F44F FFF0F444FFF0F4444FF0F44444F0F44444F0F4444FF0F444FFF0F44FFFF0F4FF FFF0} ParentShowHint = False ShowHint = True OnClick = Tool_BAnneePlus2Click RepeatInterval = 150 StartInterval = 100 end end object PopupMois: TPopupMenu Left = 318 Top = 75 object Janvier1: TMenuItem Tag = 1 Caption = 'Janvier' OnClick = MenuMoisClick end object Fvrier1: TMenuItem Tag = 2 Caption = 'F'#233'vrier' OnClick = MenuMoisClick end object Mars1: TMenuItem Tag = 3 Caption = 'Mars' OnClick = MenuMoisClick end object Avril1: TMenuItem Tag = 4 Caption = 'Avril' OnClick = MenuMoisClick end object Mai1: TMenuItem Tag = 5 Caption = 'Mai' OnClick = MenuMoisClick end object Juin1: TMenuItem Tag = 6 Caption = 'Juin' OnClick = MenuMoisClick end object Juillet1: TMenuItem Tag = 7 Caption = 'Juillet' OnClick = MenuMoisClick end object Aot1: TMenuItem Tag = 8 Caption = 'Ao'#251't' OnClick = MenuMoisClick end object Septembre1: TMenuItem Tag = 9 Caption = 'Septembre' OnClick = MenuMoisClick end object Octobre1: TMenuItem Tag = 10 Caption = 'Octobre' OnClick = MenuMoisClick end object Novembre1: TMenuItem Tag = 11 Caption = 'Novembre' OnClick = MenuMoisClick end object Dcembre1: TMenuItem Tag = 12 Caption = 'D'#233'cembre' OnClick = MenuMoisClick end end end